home *** CD-ROM | disk | FTP | other *** search
- ; passwortdatei codePW 2.0 by Jürgen Einrauch 16. Juli 1997
- failat 21
-
- echo " *n*e[1;32m ___________________________________________________"
- echo " *e[43m *e[0m"
- echo " *e[0;28;43m Paßwortdatei codePW Version 2.0*e[1m *e[0m"
- echo " *e[1;4;43m *e[0m*n"
-
- IF EXISTS SYS:S/codePW
- echo " *e[32mPaßwortdatei codePW existiert bereits.*e[0m"
- echo " *e[32mInstallation wird abgebrochen.*e[0m"
- echo "*n Lesen Sie dazu bitte die Informationsdatei."
- WAIT 4 secs
- EndCLI >NIL:
- quit
- ELSE
- echo " Lesen Sie zuerst die Informationsdatei zu codePW !"
- echo noline "*n Wollen Sie codePW jetzt installieren ? (Ja/Nein): "
- set > nil: Inp ?
- IF $Inp eq "ja"
- skip start
- endif
- IF $Inp eq "j"
- skip start
- endif
- IF $Inp eq "y"
- skip start
- endif
- IF $Inp eq "yes"
- skip start
- endif
- echo noline "*n Installation abgebrochen."
- EndCLI >NIL:
- quit
-
- lab start
- search >nil: from s:user-startup search "; Begin codePW"
- search >nil: from s:user-startup search "IF EXISTS S:codePW"
- search >nil: from s:user-startup search " EXECUTE S:codePW"
- search >nil: from s:user-startup search "ENDIF; END codePW"
- IF warn
- skip user
- ELSE
- echo ""
- skip install
- endif
-
- lab user
- IF EXISTS SYS:S/User-StartUP
- echo "*n Ergänze Ihr Verzeichnis S/User-StartUP."
- ELSE
- WAIT 2 secs
- echo "*n Keine User-StartUP gefunden,"
- echo " erstelle Verzeichnis neu."
- echo "*n Ergänze Ihr Verzeichnis S/User-StartUP."
- skip userneu
- endif
-
- lab userneu
- echo >ram:tmp "*n; Begin codePW"
- type >>s:user-startup ram:tmp
- echo >ram:tmp "IF EXISTS S:codePW"
- type >>s:user-startup ram:tmp
- echo >ram:tmp " EXECUTE S:codePW"
- type >>s:user-startup ram:tmp
- echo >ram:tmp "ENDIF; End codePW*n"
- type >>s:user-startup ram:tmp
- DELETE >NIL: ram:tmp
-
- lab install
-
- set > nil: pass;eingefügt
- echo " Installiere Datei codePW."
- endif
- WAIT 2 secs
- echo "*n Tragen Sie jetzt Ihre Anschrift ein."
- echo noline "*n Vorname, Name : "
- set > nil: nam ?
- echo >ram:tmp "echo *"*""
- type >>s:codePW ram:tmp
- echo >ram:tmp "echo *" $nam*""
- type >>s:codePW ram:tmp
- echo noline " Straße, Hausnummer : "
- set > nil: str ?
- echo >ram:tmp "echo *" $str*""
- type >>s:codePW ram:tmp
- echo noline " PLZ, Wohnort : "
- set > nil: plz ?
- echo >ram:tmp "echo *" $plz*""
- type >>s:codePW ram:tmp
- echo "*n Tragen Sie jetzt ein Paßwort ein. Wählen Sie dazu"
- echo " nur *e[32mein*e[0m zusammenhängendes Wort bzw. Zahlenkombination"
- echo " *e[32mohne*e[0m Leertasten !*n"
- echo noline " Paßwort : "
- set > nil: eingabe ?
- echo >ram:tmp "echo *"*""
- type >>s:codePW ram:tmp
- echo >ram:tmp "lab passwort"
- type >>s:codePW ram:tmp
- echo >ram:tmp "echo noline *" Paßwort: *""
- type >>s:codePW ram:tmp
- echo >ram:tmp "set > nil: pass ?"
- type >>s:codePW ram:tmp
- echo >ram:tmp "If $pass not eq *"$eingabe*""
- type >>s:codePW ram:tmp
- echo >ram:tmp "skip back passwort"
- type >>s:codePW ram:tmp
- echo >ram:tmp "endif"
- type >>s:codePW ram:tmp
- echo >ram:tmp "unset >nil: pass"
- type >>s:codePW ram:tmp
- unset >nil: eingabe ;damned bug now fixed?
- unset >nil: pass ; "
-
- DELETE >NIL: ram:tmp
- WAIT 2 secs
-
- echo "*n Installation beendet."
- echo " Starten Sie Ihren Rechner neu und überpüfen Sie"
- echo " die ordnungsgemäße Installation, indem Sie zunächst"
- echo " ein falsches und danach das richtige Paßwort ein-"
- echo " geben."
- WAIT 5 secs
- EndCLI >NIL:
- quit
-